void SmoothHistogram (NofGV, Width, Histo, Smooth)
int  NofGV, Width;
int  *Histo;
int  *Smooth;
{
   int  r,c, i,gv,Cen;
   long h;

   Cen = Width/2;
   for (gv=0; gv<NofGV; gv++)  Smooth[gv] = 0;

   for (gv=0; gv<=NofGV-Width; gv++) {
      h=0;
      for (i=gv; i<gv+Width; i++)
         h += (long)Histo[i];
      Smooth[gv+Cen] = (int) (h/Width);
}  }
